﻿<System.AttributeUsage(AttributeTargets.Property, allowMultiple:=False)> _
Public Class ExportMemberAttribute
    Inherits ExportAttributesBase

    Private _ID As Guid

    Sub New()
        _ID = Guid.NewGuid
    End Sub

    Sub New(base As ExportAttributesBase)
        MyBase.new()
        _ID = Guid.NewGuid
        MyBase.BackgroundColor = base.BackgroundColor
        MyBase.BorderColor = base.BorderColor
        MyBase.BorderLineStyle = base.BorderLineStyle
        MyBase.BorderWeight = base.BorderWeight
        MyBase.ForegroundColor = base.ForegroundColor
        MyBase.HAlign = base.HAlign
        MyBase.VAlign = base.VAlign
    End Sub

    Property Order As Byte = 255
    Property ColumnName As String = ""

    Property ValueFormatterType As Type
    Property ValueFormatterFuncName As String

    ReadOnly Property ID As Guid
        Get
            Return _ID
        End Get
    End Property
End Class